home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-02_2002_CSW_Side_A.d64 / calculate sintab (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  146b  |  8 lines
  1. 10 tb=4096
  2. 100 foran=0to2*(NULL)step2*(NULL)/256
  3. 200 x=sin(an)*5632
  4. 300 y=xand255:poketb,y:poketb+256,y
  5. 400 y=x/256:ifx<0theny=y+256
  6. 500 poketb+512,y:poketb+768,y
  7. 600 tb=tb+1:next
  8.